home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / wtek0693.zip / OOPALLEY.ZIP / ARRAY.V next >
Text File  |  1990-02-24  |  207b  |  22 lines
  1.  
  2. Test class ArrayOb
  3. ArrayOb[
  4. (0 @ 0) corner: (9 @ 9)
  5. (1 @ 2)
  6. (0 @ 1)
  7. NIL
  8. NIL
  9. NIL
  10. NIL
  11. NIL
  12. NIL
  13. NIL]
  14.  
  15. t = ArrayOb[
  16. (0 @ 0) corner: (9 @ 9)
  17. (1 @ 2)]
  18.  
  19. t == u: 1
  20. t isEqual u: 1
  21. t isEqual v: 0
  22.